home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / ra-scrs.zip / RA-MAIL.RS < prev    next >
Text File  |  1992-10-20  |  2KB  |  61 lines
  1. TITLE "Script to d/l mail from The Programmers Workshop"
  2. ENDPARAMS
  3.  
  4. CLEAR
  5.     WHEN "ENTER TO CO"                     SEND "|"
  6.     WHEN "[ENTER] TO CO"                   SEND "|"
  7.     WHEN "Y/N"                             SEND "N|"
  8.     WHEN "CHECK FOR"                       SEND "N|"
  9.     WHEN "PRESS ENTER"                     SEND "|"
  10.     WHEN "<PRESS ANY KEY>"                 SEND "|"
  11.  
  12. WAITFOR "Main Menu Select"
  13.     ;Request Offline menu
  14.     SEND "O|"
  15.     ;select menu
  16.     MESSAGE "Entering MkQwk Mail Door"
  17. WAITFOR  "SELECT:"
  18.     SEND  "M|"
  19.  
  20. WAITFOR "(Q)uit to Bbs"
  21.     MESSAGE "Now in MkQwk Mail Door"
  22.     IF NOT EXIST "%REPDIR%%ID%.REP" GOTO DOWNLOAD_BW
  23.  
  24.     ;upload REP packet
  25.     MESSAGE "Uploading %ID%.REP Packet"
  26.     SEND "U|"
  27.     UPLOAD "%REPDIR%%ID%.REP"
  28.     MESSAGE "REP Upload completed ok.."
  29.     SEND "|"
  30.  
  31.     ;rename old packet
  32.     RENUMBER "%REPDIR%%ID%.REP" 3
  33.     MESSAGE "Renumbering %ID%.REP"
  34.  
  35.     ;download packet
  36. :DOWNLOAD_BW
  37.         TIMEOUT 1200
  38.         CLEAR
  39. WAITFOR "(Q)UIT TO BBS" FAILURE GOTO ERROR
  40.         DELAY 3
  41.         MESSAGE "Requesting QWK packet"
  42.         SEND "D|"
  43.         IF EXIST "%QWKDIR%%ID%.QWK" RENUMBER "%QWKDIR%%ID%.QWK" 5
  44.         WHEN "Goodbye After"     SEND "|"
  45.         WHEN "Want This Packet"  SEND "|"
  46. WAITFOR "BEGIN ZMODEM"  FAILURE GOTO ERROR
  47.         DOWNLOAD "%QWKDIR%" USING "RCDMAIL"
  48.         SEND "|"
  49.         MESSAGE "Navigating to Main Menu"
  50. WAITFOR "(Q)UIT TO BBS" FAILURE GOTO ERROR
  51.         SEND "Q|"
  52. WAITFOR "SELECT:" FAILURE GOTO ERROR
  53.         SEND "Q|"
  54. WAITFOR "MAIN MENU SELECT" FAILURE GOTO ERROR
  55.         EXIT 0
  56.  
  57. :ERROR
  58.     MESSAGE "!!!SOMETHING WENT WRONG!!!"
  59.     HANGUP
  60. EXIT 1
  61.